home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / m2 / rexxm2error.lha / RexxM2Error / GoldED / ResetM2Error.ged < prev   
Encoding:
Text File  |  1994-03-20  |  2.1 KB  |  70 lines
  1. /* $VER: ResetM2Error.ged V 0.96 © 1994 Fin Schuppenhauer      */
  2. /* 14. März 1994 0.9                                           */
  3. /* 19. März 1994 Komplett neu geschrieben; verwendet jetzt das */
  4. /*               Programm "RexxM2Error" -> 0.95                */
  5. /* 20. März 1994 Alle Faltungen werden jetzt aufgehoben (sonst */
  6. /*               kann der Fehler nicht richtig positioniert    */
  7. /*               werden -> 0.96                                */
  8.  
  9. OPTIONS RESULTS                             /* enable return codes     */
  10.  
  11. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  12.     address 'GOLDED.1'
  13.  
  14. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  15. OPTIONS FAILAT 6                            /* ignore warnings         */
  16. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  17.  
  18.  
  19. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  20.  
  21.  
  22. 'QUERY CAT'
  23. isGerman = (result = "deutsch")
  24.  
  25. 'QUERY DOC VAR DOCNAME'
  26.  
  27. if (right(docname, 4) ~= '.mod') & (right(docname, 4) ~= '.mod') then do
  28.    if (isGerman) then
  29.       'REQUEST BODY="Dies ist kein Modula-2 Quelltext!" BUTTON="Das stimmt"'
  30.    else
  31.       'REQUEST BODY="This is no Modula-2 source!" BUTTON="I see"'
  32.    'UNLOCK'
  33.    EXIT
  34. end
  35.  
  36. if ~show('P', 'REXXM2ERROR') then do
  37.    if (isGerman) then
  38.       'REQUEST BODY="RexxM2Error läuft nicht!|Bitte starten." BUTTON=Ok'
  39.    else
  40.       'REQUEST BODY="RexxM2Error is not running!|Please start that program." BUTTON=Ok'
  41.    'UNLOCK'
  42.    EXIT
  43. end
  44.  
  45. if exists(docname'E') then do
  46.    'FOLD OPEN=TRUE ALL'
  47.    ADDRESS 'REXXM2ERROR' 'LOAD 'docname
  48.    if (isGerman) then
  49.       'REQUEST BODY="Fehlerliste geladen." BUTTON=Ok'
  50.    else
  51.       'REQUEST BODY="Errorlist loaded." BUTTON=Ok'
  52.    end
  53. else
  54.    if (isGerman) then
  55.       'REQUEST BODY="Fehlerliste nicht gefunden!" BUTTON=Ok'
  56.    else
  57.       'REQUEST BODY="Errorlist not found!" BUTTON=Ok'
  58.  
  59.  
  60. /* ---------------------------- END OF YOUR CODE --------------------- */
  61.  
  62. 'UNLOCK' /* VERY important: unlock GUI */
  63. EXIT
  64.  
  65. SYNTAX:
  66.  
  67. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  68. 'UNLOCK'
  69. EXIT
  70.